function s=qpsk2bin(z)

s=[real(z)>0 imag(z)>0];

